home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DTK_SX / compdtk.sx < prev    next >
Encoding:
Text File  |  1995-12-13  |  2.2 KB  |  89 lines  |  [TEXT/ttxt]
  1. --<<<
  2. module DTK
  3.     uses ScriptX
  4.     
  5.     exports DTKCastTranslator
  6.         exports instance variables
  7.             outputStream,            -- Where author wants data to go
  8.             container,                -- The Container to save to
  9.             dtk                        -- The DTK running this translator
  10.  
  11.     exports DTKScoreTranslator
  12.         exports instance variables
  13.             outputStream,            -- Where author wants data to go
  14.             container,                -- The Container to save to
  15.             dtk,                    -- The DTK running this translator
  16.             castList                -- The list of converted cast members
  17.  
  18.     exports DTKCastMemberToPresenter
  19.         exports instance variables
  20.             patternCache,
  21.             shapeClass,
  22.             bitmapClass,
  23.             textClass,
  24.             videoClass
  25.             
  26.     exports DTKCastMemberToStencil
  27.     exports DTKCastMemberToAudioStream
  28.     
  29. end
  30. module DTKAssemble
  31.     uses scriptX, DTK
  32. end
  33. in module DTKAssemble
  34.  
  35. (
  36.     local ld       := new loader
  37.     local devgroup := getgroup ld "loadable/dtk"
  38.     local devunit  := getLoadableUnit devgroup "directordriver"
  39.     local devid    := loadmodule ld devgroup devunit
  40.     loaderValue ld devid
  41.     
  42.     local devunit2  := getLoadableUnit devgroup "dtk"
  43.     local devid2    := loadmodule ld devgroup devunit2
  44.     loaderValue ld devid2
  45.     OK
  46. )
  47.  
  48. global dtktc
  49.  
  50. global sourceDir := spawn theStartDir "utils/dtk/source/DTK_sx"
  51. global dtkModule := GetModule @DTK
  52.  
  53. fileIn sourceDir name:"casttran.sx" module:dtkModule
  54. fileIn sourceDir name:"caststen.sx" module:dtkModule
  55. fileIn sourceDir name:"castpres.sx" module:dtkModule
  56. fileIn sourceDir name:"castaud.sx" module:dtkModule
  57.  
  58. fileIn sourceDir name:"scortran.sx" module:dtkModule
  59.  
  60. in module DTKAssemble
  61. sourceDir := empty    
  62. dtktc := new TitleContainer path:"utils/dtk/dtk.sxt" name:"DTK"
  63. append dtktc dtkModule
  64.  
  65. -- We need preStartupAction because of a bug in LibraryContainer where
  66. -- 'used' libraries don't get their startupAction called.
  67.  
  68. dtktc.prestartUpAction := (dtktc -> (
  69.     local ld       := new loader
  70.     local devgroup := getgroup ld "loadable/dtk"
  71.     local devunit  := getLoadableUnit devgroup "directordriver"
  72.     local devid    := loadmodule ld devgroup devunit
  73.     loaderValue ld devid
  74.     
  75.     local devunit2  := getLoadableUnit devgroup "dtk"
  76.     local devid2    := loadmodule ld devgroup devunit2
  77.     loaderValue ld devid2
  78.  
  79.     foreach dtktc load undefined
  80.     OK
  81. ))
  82.  
  83. close dtktc
  84.     
  85.  
  86. --in module Scratch
  87.  
  88. -->>>
  89.